home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / aa / test3.self < prev    next >
Encoding:
Text File  |  1993-05-30  |  936 b   |  59 lines
  1. " boite test cases "
  2. "
  3. *
  4. * These tests should determine if the boite system is working correctly.
  5. *
  6. * test3.self,v 1.3 1993/05/30 21:41:14 richards Exp
  7. *
  8. * test3.self,v
  9. * Revision 1.3  1993/05/30  21:41:14  richards
  10. * CVS checkin.
  11. *
  12. * Revision 1.2  1993/05/23  23:16:47  richards
  13. * Test3 works out the basic boite styles.
  14. *
  15. # Revision 1.1  1993/05/13  20:08:09  richards
  16. # Initial revision
  17. #
  18. *
  19. *
  20. *
  21. "
  22.  
  23. _AddSlotsIfAbsent: (| foo. bar. baz. hunk. junk. |)
  24.  
  25. foo: aa boites vboite copy
  26. bar: aa boites htext make: 'Hello'
  27. baz: aa boites htext make: 'There'
  28. foo addEnd: bar 
  29. foo addEnd: baz
  30. foo fixUpSizes
  31. bar printLine
  32. foo printLine
  33.  
  34. "OUTPUT:
  35. An htext containing: 'Hello' [50,10/0]
  36. An vboite [50,20/0] containing: 
  37.     An htext containing: 'Hello' [50,10/0]
  38.     An htext containing: 'There' [50,10/0]
  39.  
  40. "
  41. baz: aa boites hline copy thickness: 3
  42. foo addEnd: baz
  43. foo printLine
  44. foo addEnd: bar copy
  45. foo printLine
  46. foo fixUpSizes
  47. foo printLine
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.